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SOUND  EFFECTS  GENERATOR  FOR  USE  WITH  THE  COCKPIT  RESEARCH  AND 


EXPERIMENTATION  WORK  LOAD  SIMULATOR  (CREWS) 


INTRODUCTION 

A  two-channel  sound  effects  generator  (SEG)  has  been  designed  and  developed  by  the 
U.S.  Army  Human  Engineering  Laboratory  (USAHEL)  for  use  with  the  Human  Factors  Research 
Simulator  (HFRS).  Although  not  designed  to  reproduce  or  model  any  particular  sound,  each 
channel  on  the  SEG  is  capable  of  digitally  synthesizing  a  wide  variety  of  complex  sounds  under 
software  control  through  individual  noise  and  tone  components.  The  SEG  provides  the 
mechanisms  for  independently  creating  and  altering  the  amplitude  and  frequency  for  three  separate 
noise  and  tone  components  for  each  channel.  The  SEG  allows  the  noise  and  tones  to  be  blended 
(mixed)  and  shaped,  producing  a  single  complex  sound  with  multiple  elements  of  noise  and  tones. 

This  manual  provides  a  general  description  of  the  sound  effects  generator  and  of  the 
software  developed  for  its  use.  This  manual  is  divided  into  two  sections.  The  first  section 
provides  the  information  necessary  in  understanding  the  SEG  hardware  concepts  for  UNIBUS 
interfacing  and  sound  generation.  The  second  section  provides  the  information  necessary  for  using 
the  SEG  software. 

To  understand  the  software  presented,  the  reader  should  be  familiar  with  the  FORTRAN- 
77  programming  language  and  the  Digital  Equipment  Corporation  (DEC)  VAX/VMS  Operating 
System  (OS).  To  fully  comprehend  all  the  material  in  this  manual,  the  reader  should  also  he 
familiar  with  digital  electronic  theory,  electronic  computer  concepts,  UNIBUS  concepts,  the 
M1710  UNIBUS  Foundation  Module,  the  VAX  architecture,  and  the  MACRO- 11  programming 
language. 

Additional  information  pertaining  to  the  DEC  UNIBUS  and  the  AY-3-8912  Programmable 
Sound  Generator  can  be  obtained  from  the  DEC  Computer  Interfacing  Accessories  and  Logic 
Handbook,  the  DEC  VAX  Hardware  Handbook,  the  DEC  PDP11BUS  Handbook,  and  the 
General  Instruments  Microelectronics  Data  Catalog. 


GENERAL  DESCRIPTION 

The  SEG  consists  of  two  programmable  sound  generators,  each  of  which  can  be 
independently  and  dynamically  altered  under  program  control.  Each  PSG  is  capable  of  producing 
three  separate  channels  of  noise  and  tones.  Each  channel  contains  a  mixer  for  blending  the  noise 
and  tones  as  desired.  Furthermore,  each  channel's  output  can  be  independently  shaped 
(modulated)  based  on  one  of  10  distinct  wave  forms  (see  Appendix  A).  These  wave  forms  control 
the  amplitude,  period,  or  frequency,  creating  an  envelope  of  noise  or  sound  and  may  be 
dynamically  altered  to  produce  a  particular  sound  or  audible  effect.  In  addition,  the  three  output 
channels  are  mixed  to  produce  a  single  output  of  sound.  In  effect,  three  separate  channels  of  noise 
or  tones  can  be  independently  mixed,  shaped,  and  controlled  to  produce  a  single  complex  sound. 

Built  on  a  single,  quad-height  module,  the  SEG  plugs  directly  into  a  UNIBUS  small 
peripheral  controller  (SPC)  slot.  Described  here  in  two  sections  (see  Figure  1),  section  one 
consists  of  the  programmable  sound  generators  that  perform  the  actual  sound  generation.  Section 
two  consists  of  the  UNIBUS  controller  logic  and  the  8-bit  I/O  port  that  allows  the  PSGs  to 
communicate  with  the  host  or  computer. 
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effects  generator  block  diagram. 


For  this  application,  the  SEG  is  connected  to  a  DEC  VAX  11/750  computer  using  the  VMS 
operating  system.  It  should  be  noted,  however,  that  the  sound  effects  generator  is  not  limited  to 
use  on  the  VAX  1 1/750  but  may  be  installed  on  any  computer  system  with  the  DEC  UNIBUS 
architecture. 


DETAILED  DESCRIPTION 

The  SEG  developed  by  the  HEL  uses  two  General  Instruments  AY-3-8912  programmable 
sound  generator  LSI  circuits,  a  Digital  Equipment  Corporation  (DEC)  M1710  UNIBUS 
foundation  module,  and  some  control  and  signal  conditioning  circuitry.  All  the  components  are 
mounted  on  a  DEC  M1710  UNIBUS  foundation  module  (see  Figure  2)  and  connected  to  the 
UNIBUS  on  a  DEC  VAX  11/750  minicomputer. 


THEORY  OF  OPERATION 


Programmable  Sound  Generator  (PSG)1 

The  AY-3-8912  is  a  register-oriented  device  consisting  of  13  read  and  write  registers  (see 
Appendix  B),  each  alterable  under  program  control.  The  PSG  can  be  subdivided  into  six  basic 
blocks  for  producing  sound  (see  Figure  3).  They  include: 

a.  Tone  generators  that  produce  square  wave  tones  at  user-controlled  frequencies 
for  each  channel  (A,B,C). 

b.  Noise  generator  that  "produces  a  frequency-modulated  pseudo  random  pulse 
width  square  wave  for  noise  output."2 

c.  Mixer  that  combines  the  tone  and  noise  for  each  output  channel  (A,B,C). 

d.  Amplitude  controls  that  allow  fixed  or  amplitude  modulated  volume  control  fo: 
each  channel  (A,B,C). 

e.  Envelope  generator  that  selects  one  of  10  envelope  patterns  for  shaping 
(modulating)  the  output. 

f.  Digital-to-Analog  (D/A)  converters  that  produce  the  sounds  for  each  channel 
from  the  data  loaded  in  the  read  and  write  registers  on  the  PSG. 


’The  information  about  the  PSG  was  developed  from  the  detailed  description  and  specifications 
pertaining  to  the  AY-3-8912  Programmable  Sound  Generator.  General  Instruments  Corporation, 
"Programmable  Sound  Generator,"  Microelectronics  Data  Catalog  (1982)  pp.  5.18  to  5.25. 

2General  Instruments,  Microelectronics  Data  Catalog  (1982)  p.  5.19. 
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Figure  2.  Ml  7 10  UNIBUS  foundation  module. 


l  P6 )  NOISE 

GENERATOR 


c 

CO 

o 

z 

z 

z 

<n 

<E 

c 

X 

X 

X 

o 

o 

o 

o 

o 

o 

o 

o 

o 

J 

-J 

c 

<c 

<c 

z 

z 

z 

c 

c 

<r 

(A 

Ct  ~ 

u  r- 

X  CL 


UJ 

co 

o 

UJ 

cl 


a 


'o 


CD 


V) 

s 

J- 

°§ 

o 

o 


CO 


-J 

tu 

CA 

o 

In 

cl 


a: 

UJ  _j 

CL 

o 

Q  O 

O 

UJ  O 

H 

P  ce 

UJ 

Cl  J— 

UJ  n 

Z  CL 

K 
—  Z 

J  CL 

o  y 

d  O 

Uf 

UJ  UJ 

H  2 

u  o 

■N 

w’  Z 

UJ 

V 

{jj 

Z  UJ 

O 

X 

UJ  o 

00 

UJ 

|  ^  A 

-H  00  U*J 

r*s 

cl  cl  cl 

-A  A\ 

- S 

*.  ►.  *. 

*. 

(A  Ch  «H 

V  . 

-i  (si  00 

O  ^  T 

1 

a:  cl  cl 

1  d 

H  H 

a  Ct  CO 

i  -J 

w 

1  U) 

Lt  CL  CL 

•w  V  »-/ 

*  UJ 

s  ^  w 

H - * — 

V) 

L| - ! - 

o 

l.‘ 

i . r  * 

H- 

o 

UJ 

CL 


to 

co 


Oj 

r 

l. 


7 


Figure  3.  PSG  block  diagram. 


Tone  Control 

l 

There  are  six  tone  generator  control  registers,  Register  0  (RO)  through  Register  5 
(R5),  that  control  the  frequencies  for  the  three  output  channels  (A,  B,  and  C)  that  produce  tones. 
Each  channel  has  two  registers  associated  with  it.  The  frequency  for  each  channel  is  determined 
by  the  8-bit  count  (0  to  255)  loaded  in  the  first  register  called  the  fine  tune  register  and  the  4-bit 
count  (0  to  15)  loaded  in  the  second  register  called  coarse  tune  register.  Combined,  the  registers 
produce  a  12-bit  value  used  to  divide  the  basic  clock  frequency  of  87.5  KHz  by  the  value 
contained  in  the  corresponding  registers  for  each  channel  (see  Table  1).  The  8-bit  fine  tune  register 
contains  the  Least  Significant  Bits  (LSB)  and  is  used  for  making  fine  frequency  adjustments  of  the 
tone.  The  four-bit  coarse  tune  register  contains  the  Most  Significant  Bits  (MSB)  and  is  used  for 
making  coarse  frequency  adjustments  of  the  tone. 


Table  1 

Tone  Register  Channel  Assignments 


Coarse  Tune 

Fine  Tune 

Channel 

Register 

Register 

A 

R1 

RO 

B 

R3 

R2 

C 

R5 

R4 

Noise  Generator  Control 

A  single  noise  generator  control  register,  Register  6  (R6),  controls  the  frequency  of 
the  noise  source.  The  noise  frequency  component  is  determined  by  the  5-bit  value  (range  0  to  31) 
loaded  in  R6  and  is  derived  by  dividing  the  basic  noise  clock  frequency  (87.5  KHz)  by  the  value 
loaded  in  R6.  Since  there  is  only  one  noise  generator  control  register,  the  noise  frequency 
component  on  each  channel  will  be  the  same  for  all  three  channels,  but  the  amplitude  of  each  may 
be  individually  controlled  (see  Amplitude  Control  section). 


Mixer  Control 

A  single  mixer  control  register,  Register  7  (R7),  controls  the  tone  and  noise  mixing 
for  each  of  the  three  analog  output  channels  on  each  PSG.  The  mixer  can  combine  either,  neither, 
or  both  tone  and  noise  for  each  channel.  The  mixing  is  determined  by  the  6-bit  value  (range  0  to 
63)  loaded  in  R7.  Bit  0  (BO),  bit  1  (Bl),  and  bit  2  (B2)  designate  which  channels  are  enabled  or 
disabled  (channels  A,  B,  and  C)  for  tone,  whereas,  bit  3  (B3),  bit  4  (B4),  and  bit  5  (B5)  designate 
which  channels  are  enabled  or  disabled  for  noise  (see  Table  2).  To  enable  a  channel  requires  that 
the  appropriate  bit(s)  be  reset  or  off. 
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Table  2 


Mixer  Control 


Function  NOISE  ENABLE  TONE  ENABLE 

Bit  Number  B5  B4  B3  B2  B1  BO 

Channel  C  B  A  C  B  A 


Amplitude  Control 

Three  5-bit  amplitude  control  registers,  Register  8  (R8),  Register  9  (R9),  and 
Register  10  (RIO),  control  the  amplitude  level  and  select  the  mode  for  each  output  channel  (A,  B, 
and  C).  Bit  4  in  each  amplitude  control  register  designates  whether  the  amplitude  will  be  fixed  (bit 
4  =  0)  or  if  the  amplitude  will  be  modulated  (bit  4  =  1).  When  the  mode  is  "fixed,"  bits  0  through 
3  provide  16  (0  to  15)  discrete  volume  levels  with  0  being  lowest  level  (off)  and  15  being  the 
highest.  In  "modulated"  mode,  the  volume  is  controlled  according  to  the  shape  and  frequency 
produced  by  the  envelope  generator  (see  Envelope  Generator  Control  section). 


Envelope  Generator  Control 

The  envelope  generator  control  section  makes  it  possible  to  vary  the  envelope  period 
or  frequency  as  well  as  select  or  change  the  envelope  shape  when  modulating  the  output  channels 
(see  Amplitude  Control  section). 


Envelope  Period  Control 

Two  8-bit  envelope  period  control  registers,  Register  14  (R14)  and  register 
15  (R15),  control  the  period  or  frequency  of  the  selected  envelope  pattern.  R14,  the  envelope  fine 
tune  register,  represents  the  LSB  and  provides  the  envelope  period  fine  tuning  adjustments.  The 
envelope  coarse  tune  register,  R15,  represents  the  MSB  and  provides  the  envelope  period  coarse 
tuning  adjustments.  Internally  combined,  the  resulting  16-bit  value  is  used  to  divide  the 
fundamental  noise  clock  frequency  (5.47  KHz)  and  derive  the  envelope  period  or  frequency. 


Envelope  Shape  and  Cycle  Control 

A  single  4-bit  envelope  shape  and  cycle  control  register,  Register  16  (R16), 
determines  the  envelope  shape  and  cycle.  Bits  0  through  3  are  used  to  produce  any  one  of  10 
envelope  shapes  (see  Appendix  A).  Each  bit  has  a  specific  control  function  in  the  envelope 
generator  (see  Table  3)  which  causes  one  of  the  envelope  shapes  to  be  produced. 
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Table  3 


N 


Envelope  Shape  and  Control  Register 


Bit 

Function 

0 

HOLD 

1 

ALTERNATE 

2 

ATTACK 

3 

CONTINUE 

Digital-to-Analog  (D/A)  Converters 

The  final  step  in  generating  sounds  is  transforming  the  digital  data,  as  represented 
by  the  PSG  registers,  into  the  actual  analog  sound.  This  occurs  in  the  D/A  converter,  where  each 
PSG  is  capable  of  generating  as  many  as  three  separate  channels  of  sounds.  Each  channel  is 
independently  controlled  and  may  contain  a  noise  component  or  tone  component  as  determined  by 
the  register  data. 


M1710  UNIBUS  Foundation  Module 

The  UNIBUS  foundation  module  provides  a  general  purpose,  single-board  interfacing 
module  that  supplies  the  basic  interfacing  circuitry  when  configuring  custom  devices  to  computers 
using  the  DEC  UNIBUS  architecture.  The  module  provides  the  electronic  circuitry  for  device 
address  selection,  interrupt  generation,  and  data  bus  receiving  and  driving.  Furthermore,  the 
module  can  accommodate  numerous  14-pin  and  16-pin  du^l-in-line-packages  (DIP)  as  well  as 
some  DIP  to  as  many  as  40  pins,  providing  the  basic  building  block  for  custom  interfaces. 

Address  Selection 

The  SEG  responds  to  UNIBUS  addresses  167724  through  167737  (octal).  The 
execution  of  a  data  transfer  instruction  causes  the  appropriate  address  bits  (A00  through  A17)  and 
the  control  bits  (CO  and  C01)  to  be  placed  on  the  UNIBUS  (see  timing  diagram  in  Appendix  C). 

Each  device  on  the  UNIBUS  receives  the  address  and  control  bits  and  begins  the  device  address 
decoding.  After  a  short  interval  delay  for  deskew,  MSYN  L  is  asserted  by  the  master  device  or  in 
this  case  the  central  processing  unit  (CPU).  Each  device  on  the  UNIBUS  receives  MSYN  L, 
completes  its  device  address  decoding,  whereupon  the  device  v/ith  the  proper  address  responds  by 
asserting  DEVICE  ENABLE  L. 

PSG  Selection  and  Commands 

DEVICE  ENABLE  L  allows  further  decoding  of  address  bits  A01  through  A04  by 
the  4-  to  16-line  decoder  (see  Figure  4).  This  causes  the  appropriate  PSG  to  be  selected  and  the  * 

proper  PSG  command  to  be  initiated  (see  timing  diagram  in  Appendix  C):  LATCH  PSG,  READ 
PSG,  or  WRITE  PSG. 

LATCH  PSG  selects  one  of  the  13  registers  associated  with  each  PSG.  SEL  30 
(LATCH  PSG1)  selects  the  register  specified  by  the  data  lines  BUS  D00  through  BUS  D15  (see 
Figure  5)  for  PSG1  by  initiating  the  proper  control  signals  BC2,  BC1,  BDIR,  and  SEL  PSG1  (see 
Figure  4).  SEL  36  (LATCH  PSG2)  initiates  the  same  action  for  PSG2  (see  Figure  4). 
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Figure  5.  Bus  driver  and  receiver. 


READ  PSG  allows  the  user  to  examine  the  contents  of  a  PSG  register  previously 
selected  by  the  LATCH  PSG  command.  SEL  24  (READ  PSG1)  performs  a  register  read  of  the 
register  previously  selected  by  initiating  the  proper  control  signals  BC2,  BC1,  BDIR,  and  SEL 
PSG1  (see  Figure  4)  for  PSG1.  SEL  24  (READ  PSG2)  initiates  the  same  action  for  PSG2. 

WRITE  PSG  allows  the  user  to  deposit  a  value  into  a  PSG  register  previously 
selected  by  the  LATCH  PSG  command.  SEL  26  (WRITE  PSG1)  deposits  a  value  into  die  register 
previously  selected  by  initiating  the  proper  control  signals  BC2,  BC1,  BDIR,  and  SEL  PSG1  (see 
Figure  4)  for  PSG2.  SEL  34  (WRITE  PSG2)  initiates  the  same  action  for  PSG2. 


Gating  Control 

UNIBUS  control  lines  COO  and  C01  (see  Figure  4)  designate  the  type  of  data 
transaction,  data-in  (DATI)  or  data-out  (DATO),  with  respect  to  the  master  device. 

DATI  transactions  (COO  =  0  and  C01  =  1)  cause  data  transfers  from  the  PSG 
register  selected  to  the  address  specified  by  the  processor.  A  DATI  transaction  occurs  when  a 
READ  PSG  command  is  executed  by  the  CPU. 

DATO  transactions  (COO  =  1  and  C01  =  0)  cause  data  transfers  from  an  address 
specified  by  the  processor  to  the  PSG  register  selected.  A  DATO  transaction  occurs  when  a 
LATCH  PSG  or  WRITE  PSG  command  is  executed  by  the  CPU. 


Data  Bus  Interface 

The  data  bus  interface  contains  the  UNIBUS  drivers,  receivers,  and  8-bit  I/O  PORT 
for  establishing  the  two-way  data  path  between  the  PSGs  and  the  CPU.  Data  are  transferred  from 
the  PSG  to  the  CPU  (READ  PSG)  by  way  of  the  PSG  Bi-directional  Bus  (see  Figure  1).  Data  for 
the  CPU  are  placed  on  input  lines  1NOO  through  IN07  (see  Figure  5),  whereupon  assertion  of 
DRIVER  ENBL  L  (see  Figure  6)  signal  causes  the  data  to  be  placed  on  the  UNIBUS  data  lines  for 
transfer  to  the  CPU. 

Data  are  transferred  from  the  CPU  to  the  PSG  by  way  of  UNIBUS  data  lines  D15 
through  D00  and  output  lines  OUT  15  through  OUT  00  (see  Figure  5).  Data  placed  on  data  lines 
D15  through  D00  are  passed  to  the  output  line  OUT  15  through  OUT  00.  These  in  turn  are  passed 
to  the  input  lines  of  the  8-bit  I/O  PORT  (see  Figure  7)  which  places  the  data  on  the  PSG 
Bi-directional  Bus.  The  data  are  then  available  for  processing  by  the  selected  PSG  for  either 
register  selection  (LATCH  PSG)  or  data  transfer  to  the  selected  register  (WRITE  PSG). 


Amplifier  and  Mixer 

The  amplifier  and  mixer  section  of  the  SEG  contains  the  signal  conditioning, 
driving,  and  final  mixing  (adder)  circuits  for  the  SEG  (see  Figure  8).  Each  PSG  output  channel  is 
connected  to  a  signal  driver  whose  output  feeds  an  adder  which  combines  the  three  output  channels 
of  each  PSG.  The  output  of  the  adder  then  feeds  the  signal  conditioning  circuit  consisting  of  a 
voltage  divider  and  AC  coupling  capacitor  for  final  output. 


13 


Figure  7.  PSG 


SOUND  EFFECTS  GENERATOR  USER’S  GUIDE 


Software  has  been  developed  for  use  with  the  sound  effects  generator  (SEG).  The 
software  provides  easy  access  to  the  SEG  with  inclusion  of  FORTRAN  callable  MACRO 
subroutines  (see  Appendix  D).  The  Macro  source  listings  for  each  subroutine  are  provided  in 
Appendix  E  and  a  working  FORTRAN  example  program  in  Appendix  F.  Using  the  subroutines 
requires  adhering  to  the  proper  calling  format  in  your  application  program.  Then  you  must  link 
those  subroutines  with  your  application  program.  The  SEG  object  files  required  for  linking  are  on 
the  VAX  1 1/750  in  the  directory  DRAO:[SEG.OBJ]. 

Two  important  concepts  should  be  noted  pertaining  to  the  SEG.  First,  the  sounds 
produced  by  the  programmable  sound  generators  (PSG)  on  the  SEG  are  initiated  and  changed  by 
simply  performing  a  series  of  register  loads.  Therefore,  each  functional  area  used  in  producing 
sounds  (tone,  noise,  mixing,  amplitude,  and  envelope  generation)  can  be  related  to  a  specific 
register  within  each  PSG. 

Second,  once  a  sound  has  been  generated  by  the  PSG  in  the  modulated  mode,  that  sound  is 
sustained  without  further  intervention  by  the  controlling  process.  Since  the  PSG  is  a  register- 
oriented  device,  it  only  responds  to  changes  made  in  its  internal  registers.  This  feature  reduces  the 
overhead  required  by  any  process  when  interacting  with  the  SEG  since  generating  or  changing  a 
particular  sound  requires  setting  only  a  few  data  registers  while  repetitive  sounds  require  no 
intervention. 

All  the  subroutines  used  to  access  the  SEG  require  mapping  to  a  global  page  frame  section. 
This  section  should  have  been  created  before  running  any  software  using  the  PSG  software.  The 
procedure  for  installing  the  page  frame  section  is  described  in  the  following  "Create  and  Map" 
section.  One  final  note:  all  numeric  values  should  be  declared  as  integers. 


Create  and  Map  Section 

For  the  subroutines  to  work,  a  page  frame  section  must  be  created  for  the  SEG  so  that 
users  are  able  to  map  to  the  section  created  for  the  PSG.  In  essence,  the  process  creates  a  group 
global  section  called  PSGSEC,  which  allows  processes  to  associate  (map)  a  section  of  its  address 
space  with  the  specific  physical  device  addresses  of  the  SEG.  The  page  frame  section  can  be 
installed  by  running  the  program: 

$RUN  PSGMAP 

The  process  requires  the  following  privileges: 

PFNMAP  to  create  a  page  frame  section. 

PRMGBL  to  create  a  permanent  global  section. 


Register  Reset 

A  subroutine  has  been  developed  for  FORTRAN  inclusion  that  will  reset  or  clear  all  the 
registers  (0  through  13)  for  either  programmable  sound  generator  (PSG)  or  both  on  the  SEG.  The 
calling  format  is: 

CALL  PSG_RESET  (PSG_NUM) 
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In  which  the  PSG_NUM  argument  has  the  following  meaning: 

PSG_NUM  =  0  reset  both  PSG1  and  PSG2. 
PSG.NUM  =  1  reset  PSG1. 

PSG.NUM  =  2  reset  PSG2. 


Tone  Selection 


Each  PSG  on  the  SEG  has  three  separate  channels  that  may  be  programmed  with  a  different 
tone.  Associated  with  each  channel  are  two  registers  for  determining  the  tone  frequency.  The  first 
register  represents  the  LSB,  bits  0  through  7,  and  is  used  for  fine  tuning  the  tone  frequency.  The 
second  register  represents  the  MSB,  bits  8  through  11,  and  is  used  for  coarse  tuning  the  tone 
frequency.  Combined,  they  produce  a  12-bit  number,  which  is  used  to  divide  the  fundamental  tone 
clock  frequency  (87.5  KHz)  down  to  the  tonal  frequency  required. 

The  subroutine  developed  for  FORTRAN  inclusion  has  the  following  format: 

CALL  PSG.TONE  (PSG.NUM,  CHAN.NUM,  COARSE.ADJ,  FINE_ADJ) 


The  arguments  have  the  following  significance: 


PSG.NUM 

CHAN_NUM 

COARSE_ADJ 

FINE_ADJ 


specifies  which  PSG  will  be  modified,  1  or  2. 

specifies  which  channel  (1, 2,  or  3)  for  setting  the  tonal  frequency. 

is  the  value  of  bits  8  through  1 1  for  the  coarse  frequency 
adjustments.  The  range  is  0  to  15. 

is  the  value  of  bits  0  through  7  for  the  fine  frequency  adjustments. 
The  range  is  0  to  255. 


Noise  Selection 

Each  PSG  on  the  SEG  has  three  channels  that  may  be  programmed  with  noise.  The 
frequency  content  of  the  noise  for  all  channels  is  determined  by  this  one  register,  the  noise 
generator  control  register.  Again,  as  with  the  tone  generation,  the  frequency  content  is  determined 
by  dividing  the  fundamental  clock  frequency  (87.5  KHz)  by  the  value  of  the  5-bit  noise  generation 
control  register. 

The  subroutine  developed  for  FORTRAN  inclusion  has  the  following  format: 

CALL  PSG_NOISE  (PSG_NUM,  NOISE.FREQ) 

The  arguments  have  the  following  significance: 

PSG_NUM  specifies  which  PSG  will  be  modified  and  has  a  value  of  1  or  2. 

NOISE_FREQ  is  the  value  representing  bits  0  through  4  used  for  calculating  the 

noise  frequency  content  and  has  a  value  ranging  from  0  to  31. 
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Mixer  Selection 

Each  PSG  on  the  SEG  has  a  mixer  that  will  blend  the  tone  and  noise  for  each  channel  on 
the  PSG.  Blending  or  mixing  is  controlled  by  the  mixer  control  register,  an  8-bit  register,  of 
which  the  lower  6  bits  are  used  for  mixing  the  tone  and  noise.  This  is  accomplished  by 
constructing  a  bit  mask  in  the  mixer  control  register,  in  which  bit  0  through  bit  2  form  the  tone 
mixer  mask,  and  bit  3  through  bit  5  form  the  noise  mixer  mask  for  channels  1, 2,  and  3.  Mixing  is 
disabled  when  the  respective  bit  for  tone  or  noise  is  set  or  enabled  when  the  respective  bit  for  tone 
or  noise  is  reset.  For  example,  if  bit  0  is  set,  there  is  no  tone  on  channel  1,  or  if  bit  3  is  set,  there 
is  no  noise  on  channel  1.  The  same  convention  is  followed  for  channels  2  and  3. 

The  subroutine  developed  for  FORTRAN  inclusion  has  the  following  format: 

CALL  PSG_MIXER  (PSG_NUM,  MIXER_MASK) 

The  arguments  have  the  following  significance: 

PSG_NUM  specifies  which  PSG  will  be  modified  and  has  a  value  of  1  or  2. 

MIXER_MASK  is  the  value  representing  the  mixer  mask,  bits  0  through  5,  enabling 
or  disabling  tone  and  noise  mixing  for  each  channel.  The  value 
range  is  0  through  63. 


Amplitude  Control 

Each  PSG  on  the  SEG  has  three  channels  that  may  be  programmed  independently  for 
amplitude  (volume).  The  amplitude  of  each  channel  is  determined  by  the  5-bit  value  in  their 
respective  amplitude  control  register.  Each  amplitude  control  register  has  two  modes  of  operation 
associated  with  it:  a  fixed  mode  and  a  modulated  mode.  The  mode  is  determined  by  bit  5,  the 
"mode"  select  bit.  In  the  fixed  mode,  bit  5  ("mode"  select)  is  reset,  and  bit  0  through  bit  4 
determine  one  of  16  discrete  steps  for  volume  control  where  0  is  off  and  15  is  maximum.  In  the 
modulated  mode,  bit  5  ("mode"  select)  is  set,  and  bit  0  through  bit  5  are  ignored.  The  volume  is 
then  modulated  as  determined  by  the  envelope  generator  described  in  the  next  section  "Envelope 
Generator  Control." 


The  subroutine  developed  for  FORTRAN  inclusion  has  the  following  format: 
CALL  PSG_AMP  (PSG_NUM,  CHAN_NUM,  AMPLITUDE) 


The  arguments  have  the  following  significance: 


PSG_NUM  specifies  which  PSG  will  be  modified,  and  has  the  value  of  1  or  2. 

CHAN_NUM  specifies  the  channel  (1 , 2,  or  3)  for  volume  setting  or  modulation 

selection. 


AMPLITUDE  is  the  value  representing  bits  0  through  bit  5  for  setting  the  volume 

level.  The  value  is  16  for  modulation  or  ranges  between  0  and  15  for 
fixed  volumes. 
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Envelope  Generator  Control 

When  in  modulated  mode  (see  "Amplitude  Control"  section),  "mode"  select  bit  is  set,  and 
each  PSG  output  on  the  SEG  can  be  controlled  by  the  envelope  generator.  The  envelope  generator 
allows  the  selection  of  a  particular  wave  form  pattern  (see  Appendix  A)  and  allows  for  setting  the 
period  of  the  wave  form.  The  pattern  is  used  to  create  the  envelope  shape  for  the  desired  output. 


Envelope  Period  Control 

The  envelope  period  control  determines  the  frequency  or  period  of  the  envelope 
pattern.  Associated  with  the  envelope  period  are  two  registers  for  determining  the  envelope  period. 
The  first  register  represents  the  LSB,  bit  0  through  bit  7,  and  is  called  the  envelope  fine  tune 
register.  The  second  register  represents  the  MSB,  bits  8  through  bit  15,  and  is  called  the  envelope 
coarse  tune  register.  Combined,  they  produce  a  16-bit  value,  which  is  used  to  divide  the  envelope 
clock  frequency  of  5.47  KHz  down  to  the  envelope  period  desired. 

The  subroutine  developed  for  FORTRAN  inclusion  has  the  following  format: 

CALL  PSG_ENV_GEN  (PSG.NUM,  COARSE_VAL,  FINEJVAL) 

The  arguments  have  the  following  significance: 

PSG_NUM  specifies  which  PSG  will  be  modified  and  has  a  value  of  1  or  2. 

COARSE_VAL  is  the  value  representing  bit  8  through  bit  1 5  in  the  envelope  coarse 
tune  adjustment  register.  The  value  range  is  from  0  to  255. 

FINE_VAL  is  the  value  representing  bit  0  through  bit  7  in  the  envelope  fine  tune 

adjustment  register.  The  value  range  is  from  0  to  255. 


Envelope  Shape  and  Cycle  Control 

The  envelope  shape  and  cycle  control  determines  the  envelope  shape  and  defines  the 
envelope  as  a  single  or  repetitive  (cycling)  event.  A  4-bit  register,  called  the  envelope  shape  and 
cycle  control  register,  selects  one  of  10  different  wave  forms  (see  Appendix  A).  The  wave  form 
selected  is  used  to  create  the  output  shape  (envelope),  which  becomes  a  single  burst  or  repetitive 
bursts  of  noise  or  tones. 

The  subroutine  developed  for  FORTRAN  inclusion  has  the  following  format: 

CALL  PSG_ENV_SHAPE  (PSG.NUM,  SHAPE_VAL) 

The  arguments  have  the  following  significance: 

PSG_NUM  specifies  which  PSG  will  be  modified  and  has  a  value  of  1  or  2. 

SHAPE_VAL  is  the  value  representing  bit  0  through  bit  3  for  the  envelope  shape 

and  cycle  control  register.  The  value  range  is  from  0  to  15  (see 
Appendix  A  for  patterns). 
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Reading  PSG  Registers 

It  is  possible  to  examine  the  contents  of  any  PSG  register.  A  subroutine  has  been 
developed  for  FORTRAN  inclusion  that  will  read  the  contents  of  the  specified  register.  The  calling 
format  is 

CALL  PSG.READ  (PSG_NUM,  REG_NUM,  REG.VAL) 

In  which  the  arguments  have  the  following  significance: 

PSG_NUM  specifies  which  PSG  will  be  modified  and  has  a  value  of  1  or  2. 

REG_NUM  is  the  number  of  the  register  to  be  read  (0  to  13).  The  range  is  from 

0  to  13  (see  Appendix  B  for  the  number  of  the  register  functions). 

REG_VAL  is  the  value  of  the  specified  register. 
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ENVELOPE  SHAPE  AND  CYCLE  PATTERNS 
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ENVELOPE  SHAPE  AND  CYCLE  PATTERNS3 


General  Instruments  Corporation.  Programmable  Sound  Generator," 
Microelectronics  Data  Catalog  (Hi  ville,  N.Y.  1982)  p.  5.22. 
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PROGRAMABLE  SOUND  GENERATOR  REGISTER  FUNCTIONS 


Register 

Function 

RO 

Channel  A  Tone  Period  (fine) 

R1 

Channel  A  Tone  Period  (coarse) 

R2 

Channel  B  Tone  Period  (fine) 

R3 

Channel  B  Tone  Period  (coarse) 

R4 

Channel  C  Tone  Period  (fine) 

R5 

Channel  C  Tone  Period  (coarse) 

R6 

Noise  Period 

R7 

Mixer 

R8 

Channel  A  Amplitude  Control 

R9 

Channel  B  Amplitude  Control 

RIO 

Channel  C  Amplitude  Control 

Rll 

Envelope  Period  (fine) 

R12 

Envelope  Period  (coarse) 

R13 

Envelope  Shape  and  Cycle  Control 
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APPENDIX  C 
PSG  TIMING  DIAGRAM 
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PSG  TIMING  DIAGRAM 
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APPENDIX  D 

SOUND  EFFECTS  GENERATOR  PROGRAMS  AND  SUBROUTINES 
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SOUND  EFFECTS  GENERATOR  PROGRAMS  AND  SUBROUTINES 


FORTRAN  PROGRAMS 

PSGMAP  -  creates  the  global  page  frame  section  for  the  Sound  Effects  Generator. 


FORTRAN  SUBROUTINES 


Subroutine  Arguments 


PSGJRESET 

PSG_TONE 

PSG_NOISE 

PSG_MIXER 

PSG  AMP 

PSG_ENV_GEN 

PSG_ENV_SHAPE 

PSG_READ 


(psg_num) 

(psg_  num,  chan_num,  coarse_adj,  fine_adj) 
(psg_num,  noise_freq) 

(psg_num,  mixer_mask) 

(psg_num,  chan_num,  amplitude) 
(psg_num,  coarse_val,  fine_val) 

(psg_num,  shape) 

(psg_num,  reg_num,  reg_value) 
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APPENDIX  E 

MACRO  SOURCE  CODE  FOR  FORTRAN  CALLABLE  SUBROUTINES 
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ORA  1 :  [THOMPSON.PSGJPSGMAP.MAR;64 


^  a  a  ^  *1*  sk  sL  ^  j*  A  A  A  AA  A  AAA  A  A 

^  HP  T  v  TTT*r**T*TTVTT*T'TVn'T*fr*r^TTTT'TTTN'#r^TTTTT'TTTtrTTTTTTT  V  T  T  T  *TV  'X*  *1*  S'  T  T  T'T  *T*  *1>  ^P 

This  is  a  FORTRAN  callable  macro  subroutine  that  returns  the 
Creates  the  map  section  PAGE  FRAME  MAP  (PFN). 


register 

offset 

address 

READ  PSG1 

AO0 

A0767724 

WRITE  PSG1 

A02 

A0767726 

LATCH  PSG1 

A04 

AO767730 

) 

READ  PSG1 

A06 

A0767732 

> 

WRITE  PSG1 

AO10 

A0767734 

> 

LATCH  PSG1 

A012 

A0767736 

AX1F7EA3 


$CRMPSC  --  Create  and  Map  Section: 

^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  t|^  *|^  ^  «|^  ^  |j^  ^  ^  ^  ^  ^  ^  *|^  «|^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  «|q  ^  ^  ^  ^  ^  ^ 

see  ’SYSTEM  SERVICES,  I/O’  in  the  memory  management  services  section. 

FORMAT  (MACRO):  $CRMPSC  [inadr],[retadr],[acmode], [flags], 

[gsdnam]  ,[ident]  ,[relpag] ,  [chan] , 

[  pagcnt]  ,[vbn] ,  [prot]  ,[pfc] 

Arguments  required  for  creating  the  page  frame  section: 

inadr  -  Starting  and  ending  virtual  addresses  into  which  the 
section  is  to  be  mapped.  If  the  starting  and  ending 
addresses  are  the  same,  a  single  page  is  mapped. 

;  retadr- Starting  and  ending  virtual  addresses  into  which  the  section 
;  was  actually  mapped. 

;  flags  -  Flag  mask  specifying  the  type  of  section  to  be  mapped  or 
;  created.  (#SEC$M_WRT!SEC$M_PFNMAP) 

;  pagcnt-  Number  of  pages  in  the  section.  Cannot  equal  zero  for  physical 
;  page  frame. 

;  vbn  -  Specifies  the  page  frame  number  where  the  section  begins  in 
;  memory,  ((base  addr.  +  unibus  offset)  /  bytes  per  page)  where 

base  addr.  =  unibus  base  addr.  UBO  =  AX  20100000 
unibus  offset  =  force  stick  begins  at  A0  767724 
bytes  per  page  =  512 

J^,  4 ^  ^  ^  *||»  ^  ^  ^  4^  *|>  t|«  4^  *^>  ^  *|^  ^  ^  4|p  ^  4^  4^J  >|^  4^  <|||  ^  *|^  4^»  ^  ^  ^  4^.  *yj  ^ 

USE  BYTE  ADDRESSING  MODE: 

;  UBA_BASE  =  @RETRANGE  =AX2013EFD4 

READ  PSG1  =@RETRANGE  =AX2013EFD4 
WRITE  PSG1  =  @RETRANGE+2  =  AX  2013EFD6 
LATCH  PSG1  =  @RETRANGE+4  =  AX  2013EFD8 
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READ  PSG2  =  @RETRANGE+6  =  AX  2013EFDA 
WRITE  PSG2  =  @RETRANGE+8  =  AX  2013EFDC 
LATCH  PSG2  =  @RETRANGE+10=  AX  2013EFDD 


;  The  following  assign  should  also  work  for  VBN  if  a  liteial  (#)  is 
implied: 

;  VBN1  =  <AX20 100000  +  A0767724>  @-9 


;  Create  and  map  page  frame  section. 

.  *  j*t  **  *  *  *  *  *  %  *+ %  *  *  *  **  ***  **  *  *  **  *  *  *  *  *  *  %  *  *  ***  *  *  **  *  ****  *  **  *  *  *  *  *  *  *  ***  ***  ** 


.TITLE  PSG_MAP 

.PSECT  MAP_SECTION  ,NOEXE,WRT,RD,PIC 

MAPRANGE: 

.LONG  1024 

.LONG  1024 

RETRANGE: 

.BLKL  2  ;  reserve  two  longwords 

REMAINDER: 

.LONG  468 

LATCHJREG: 

.LONG  0 

REGJVAL: 

.LONG  0 


.LIBRARY  /SYS$LIBRARY:LIB.MLB/ 

$IO750DEF 

.PSECT  CODE  ,EXE,NOWRT 

.ENTRY  PSGMAP  AM<> 

VBN1  =  <IO750$AL_UB0SP+AO767724>(§>-9 

$CRMPSC_S  - 

INADR  =  MAPRANGE, - 
RETADR  =  RETRANGE, - 

FLAGS  =  #SEC$M_WRT!SEC$M_PFNMAP!SEC$M_EXPREG,- 
PAGCNT  =  #1  - 

VBN  =  #<IO750$AL_UB0SP+AO767724>@-9 

CLRL  R5 
CLRL  R6 

START: 

ADDL3  REMAINDER, RETRANGE, R3;  get  first  address 
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PaGi: 


MOVAB  4[R3],R4  ;  latch  ADDR 

MOVAB  2[R3],R5  ;  write  ADDR 

MOVL  #11, R2 

LATCH: 

MOVB  R2,(R4)  ;  select  register 

MOVB  R2,LATCH_REG 
;  BRW  LATCH 

WRITE: 

MOVB  R2,(R5)  ;  set  selected  reg. 

;  ADDB2  #1,R2 
;  BRW  WRITE 

READ: 

MOVB  (R3),REG_VAL  ;  Get  data  from  latched  register 

SUBB3  #15,R2,R1 
;  BRW  READ 

BLEQ  LATCH 
;  BRW  PSG1 


DONE: 

$EXIT_S 
.END  PSGMAP 


DRAl:[THOMPSON.PSG]PSG_AMP.MAR;7 

.*^*^^*^^*4c5jC)k%********3i<**^*5icJic^**Jk**************J<<*%********5l<****){c>i<******* 

;  AUTHOR:  MICHAEL  W.  THOMPSON 
;  DATE  :  17  JUNE  1987 

.  ************  ****  ******************************************************* 

;  DESCRIPTION:  Programmable  Sound  Generator  (PSG)  amplitude  control. 

;  registers  10,1 1,12  for  channels  A,B,C,  respectively. 

;  This  is  a  FORTRAN  callable  macro  subroutine  that: 


;  Calling  format:  CALL  PSG_AMP  (PSG_NUM,CHAN_NUM, AMPLITUDE) 

;  Selects  the  PSG1  or  PSG2  :  PSG_NUM  (1  or  2) 

;  Selects  the  channel  :  CHAN_NUM  (1,2,3) 

;  Set  the  amplitude  for  channel 
;  selected.  :  AMPLITUDE 


PSG  UNIBUS  address: 
register 


READ  PSG1 
WRITE  PSG1 
LATCH  PSG1 

READ  PSG1 
WRITE  PSG  1 
LATCH  PSG1 


offset 

address 

AO0 

A0767724 

A02 

A0767726 

A04 

A07 67730 

A06 

A0767732 

AO10 

A0767734 

A012 

A0767736 

AX1F7EA3 
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************************************************************************ 
.TITLE  P_S_G_AMP 

************************************************************************ 

» 


.LIBRARY  /SYS$LIBRARY:LIB.MLB/ 

$IO750DEF 

.PSECT  MAP_SECTION,NOEXE,WRT,RD,PIC 
MAPRANGE: 

.LONG  1024 

.LONG  1024 

RETRANGE: 

.BLKL  2  ;  reserve  two  longwords 

.PSECT  DATA, NOEXE,WRT,RD, PIC 
REMAINDER: 

.LONG  468 

PSG_NUM: 

.LONG  1 

CHAN_NUM: 

.LONG  0 

AMPLITUDE: 

.LONG  3 

NAME: 

.ASCID  /PSGSEC/ 

.PSECT  CODE, EXE, NOWRT 

.ENTRY  PSG_AMP,  AM<R3,R4,R5,IV> 

;MAP  to  permanent  global  page  frame  section  (I/O  page) 

$MGBLSC_S  - 

INADR  =  MAPRANGE, - 

RETADR  =  RETRANGE, - 

FLAGS  =  #SEC$M_WRT!SEC$M_EXPREG,- 

GSDNAM  =  NAME 

BEGIN: 

ADDL3  REMAINDER, RETRANGE, R3  ;  put  PSG1  base  address  in  R3 

MOVL  @4(AP),PSG_NUM  ;  get  PSG  number 

MOVL  @8(AP),CHAN_NUM  ;  get  CHANNEL  number 

MOVL  @  12(AP), AMPLITUDE ;  get  CHANNEL  number 

CMPB  #2,PSG_NUM  ;  sel  PSG1  or  PSG2 
BEQL  PSG2 


PSG1: 

MOVAB  4[R3],R4  ;  put  latch  ADDR  in  R4 
MOVAB  2[R3]  ,R5  ;  put  write  ADDR  in  R5 
BRW  CALC.CHAN 


PSG2: 

MOVAB  10[R3],R4  ;  put  latch  ADDR  in  R4 

MOVAB  8[R3],R5  ;  put  write  ADDR  in  R5 


46 


CALC_CHAN: 

CMPB  #1,CHAN_NUM 

BEQL  CHAN_A 
CMPB  #2,CHAN_NUM 

BEQL  CHAN_B 
CHAN  C: 

MOVB  #A012,CHAN_NUM 

BRW  SET_AMP 
CHAN_B: 

MOVB  #A01 1,CHAN_NUM 

BRW  SET.AMP 
CHAN_A: 

MOVB 

SET_AMP: 

MOVB 
MOVB 

DONE: 

RET 
.END 

$EXIT_S 
;  .END  PSG_AMP 

DR  A 1 :  [THOMPS  ON.PSG]  PS  G_EN  V_GEN.M  AR;8 

;  AUTHOR:  MICHAEL  W.  THOMPSON 
;  DATE  :  17  JUNE  1987 

.*************************************:»4i**********************4<********* 

;  DESCRIPTION:  Programmable  Sound  Generator  (PSG)  envelope  generator 
;  control  register  13  (fine  tune)  &  register  14  (coarse  tune). 


#*0 1 0,CHAN_NUM 

CHAN _NUM,(R4)  ;  latch  AMPLITUDE  register 
AMPLITUDE, (R5)  ;  set  amplitude  register 


This  is  a  FORTRAN  callable  macro  subroutine  that: 


Calling  format: 

CALL  PSGJENV.GEN  (PSG_NUM,COURSE_VAL,FINE_VAL) 


Selects  the  PSG1  or  PSG2 

:  PSG.NUM 

(lor  2) 

Sets  the  course  adjust  tune  value:  COURSE 

(AO0  THRU  A0  377) 

Sets  the  fine  adjust  tune  value 

:  FINE 

(A0  0  thru  *0  377) 

UNIBUS  address: 

register 

offset 

address 

READ  PSG1 

AO0 

A0767724 

AX1F7EA3 

WRITE  PSG1 

A02 

A0767726 

LATCH  PSG1 

A04 

AO767730 

READ  PSG1 

A06 

A0767732 

WRITE  PSG1 

AO10 

A0767734 

* 

LATCH  PSG1 

A012 

A076773 6 
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.*********************************************************************** 
.TITLE  P_S_G_ENV_GEN 

.*********************************************************************** 

> 

.LIBRARY  /SYS$LIBRARY  :LIB.MLB/ 

$IO750DEF 

.PSECT  MAP_SECTION,NOEXE,WRT,RD,PIC 
MAPRANGE: 

.LONG  1024 

.LONG  1024 

RETRANGE: 

.BLKL  2  ;  reserve  two  longwords 

.PSECT  DATA, NOEXE,WRT,RD, PIC 
REMAINDER: 

.LONG  468  • 

LATCH  REG:  *  -  *•  *  -  *  ■ '  " 

.LONG  0 

REG_VAL: 

.LONG  0 

PSG_NUM: 

.LONG  1 

COARSE: 

.LONG  3 

FINE:  *' 

.LONG  7 

NAMfiTv‘  '•**---****-‘*«***>"'«  *'»•'•  - 

.ASCID  /PSGSEC/ 

4  4  .'PSECT’  ** * TODE^XE'.NOWRT'  " 

.ENTRY  -PSGjENV;iGEtf,  *M<R3,R4,R5,IV> 

•  '.!»  ’(  >  I  V  l  ’ 

$MGBLSC_S  - 

INADR  =  MAPRANGE,-  ? 

RETADR  =  RETRANGE, - 

FLAGS  =#SEC$M  WRT!SEC$M_EXPREG,- 

GSDNAM  =  ft'AMEf 'i',q  • 

BEGIN:  '  •'  •’  “ 

ADDL3  5  *'  REMAINDER, RETRANGE, R3  ;put  PSG 1  base  address  in  R3 

MOVL  @4(AP),PSG_NUM  ;  get  PSG  number 
MOVL  @8(AP), COARSE  ;  get  COARSE  value 

MOVL  @  12(AP),FINE  get  FINE  value 

CMPB  #2,PSOiNU'M  "  ;  sel  PSG1  or  PSG2 

BEQL  PSG2  •; 

PSG1: 

MOVAB  4[R3],R4  ;  latch' ADDR 

MOVAB  2[R3],R5  ;  write  ADDR 

BRW  LATCH 
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PSG2:  '  a- 

MOVAB  10[R3],R4  ;  latch  ADDR 

MdVAB  *  8[R3],R5'  '  ;  write  ADDR* 

LATCH: 

MOVB  #A013,(R4) 

MOVB  FINE,(R5) 

MOVB  #A014,(R4) 

MOVB  COARSE, (R5) 

DONE: 

;  BRW  LATCH 
RET 
.END 

•  ‘RFYIT 

|  .END  PSG_ENV_GEN 

DRA 1 :  [THOMPS  ON.PSG]  PSG_EN  V_SH  APE.M  AR;8 

.  :)<  *  :jt  %  :je  %  :jt + ^  *  %  %  %  ♦  *  *  *  *  *  *  N<  *  %  sft  &  *  *  %  %  *  %  H<  *  *  *  *  #  *  %  %  %  >ft  *  *  #  &  *  *  * + *  ■*  *  =f<  #  %  &  *  *  *  *  *  *  *  & 

;  AUTHOR:  MICHAEL  W.  THOMPSON 
;  DATE  :  17  JUNE  1987 

;  DESCRIPTION:  Programmable  Sound  Generator  (PSG)  envelope  shape  and  cycle 
;  control  (register  15). 


;  This  is  a  FORTRAN  callable  macro  subroutine  that: 


;  Calling  format:  CALL  PSG_ENV.  SHAPE  (PSG_NUM,SHAPE_VAL) 

;  Selects  the  PSG  1  or  PSG2  :  PSG_NUM  (lor  2) 

;  Selects  the  shape  control  :  SHAPE_VAL  (1  thru  A0  17) 


Shape  control  bit  functions: 
BO  -  Hold 
B  l  -  Alternate 
B2  -  Attack 
B3  -  Continue 

PSG  UNIBUS  address: 


register 

offset 

address 

READ  PSG1 

AO0 

A07 67724 

WRITE  PSG1 

A02 

A0767726 

LATCH  PSG1 

A04 

AO767730 

READ  PSG1 

A06 

A0767732 

WRITE  PSG1 

AO10 

A07 67734 

LATCH  PSG1 

A012 

A0767736 

AX1F7EA3 
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.lit********************************************************************** 

.TITLE  P_S_G_ENV_SHAPE 

.a************************************^******************************** 

7 

.LIBRARY  /S  Y  S$LIBRARY  :LIB.MLB/ 

$IO750DEF 

.PSECT  MAP_SECTION,NOEXE,WRT,RD,PIC 
MAPRANGE: 

.LONG  1024 

.LONG  1024 

RETRANGE: 

.BLKL  2  ;  reserve  two  longwords 

.PSECT  DATA, NOEXE,WRT,RD, PIC 
REMAINDER: 

.LONG  468 

PSG_NUM: 

.LONG  1 

SHAPE_VAL: 

.LONG  0 

NAME: 

.ASCID  /PSGSEC/ 


;*****  BEGIN  PSG_NOISE  ***** 

.PSECT  CODE, EXE, NOWRT 

.ENTRY  PSG_ENV_SHAPE,  AM<R3,R4,R5,IV> 

$MGBLSC_S  - 

INADR  =  MAPRANGE, - 

RETADR  =  RETRANGE, - 

FLAGS  =  #SEC$M_WRT!SEC$M_EXPREG,- 

GSDNAM  =  NAME 


BEGIN: 

ADDL3  REM AINDER, RETRANGE, R3  ;  put  P3G 1  base  address  in  R3 

MOVL  @4(AP),PSG_NUM  ;  get  PSG  number 

MOVL  @8(AP),SHAPE_VAL  ;  get  shape  control  value 


CMPB  #2,PSG_NUM  ;  sel  PSG1  or  PSG2 

BEQL  PSG2 

PSG1: 

MOVAB  4[R3],R4  ;  put  latch  ADDR  in  R4 

MOVAB  2[R3],R5  ;  put  write  ADDR  in  R5 

BRW  LATCH 


PSG2: 

MOVAB  10[R3],R4  ;  put  latch  ADDR  in  R4 

MOVAB  8[R3],R5  ;  put  write  ADDR  in  R5 
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LATCH: 

MOVB  #A015,(R4)  ;  select  register  15  (envelope  shape  control) 

MOVB  SHAPE_VAL,(R5) 

DONE: 


;  BRW  LATCH 

RET 
.END 

;  $EXIT_S 

;  .END  PSG_ENV_SHAPE 

DR  A 1 :  [THOMPSON.PSG]PSG_MAP.MAR;  1 2 

.  ifc  *  %  *  *  ifcfcjfcifc**  *  jfc  *  *  >f<  jf:  jf:  >fc  * *** **  $  *  *  $  *****  jf<  *  ***  *  %  **  *  *  ***  ** 


PSG.MAP.MAR 


This  is  a  FORTRAN  callable  macro  subroutine 
Creates  a  global  map  section  PAGE  FRAME  MAP  (PFN). 
This  allows  users  to  map  to  the  physical  addresses  associated 
with  the  programmable  sound  generators. 


Calling  format:  CALL  PSG_MAP 


READ  PSG1 

AO0 

WRITE  PSG1 

A02 

LATCH  PSG1 

A04 

> 

READ  PSG1 

A06 

WRITE  PSG1 

AO10 

> 

LATCH  PSG  1 

A012 

UNIBUS  address: 
address 


A0767724  AX1F7EA3 

A0767726 

AO767730 

A0767732 
A0767734 
A07 67736 


Programmable  Sound  Generator  (PSG) 
register  offset 


SCRMPSC -- Create  and  Map  Section  system  service 

see  'SYSTEM  SERVICES,  I/O'  in  the  memory  management  services  section. 

FORMAT  (MACRO):  $CRMPCS  [inadr],[retadr],[acmode], [flags], 

[gsdnam], [idem], [relpag], [chan], 

[pagcnt],[vbn],[prot],[pfc] 

V  fty  jjc  jJc  )jc  *  sfc  ^  )f*  j|c  ^  ^  jjc  )|(  j|c  ^jc  5j(  ^  jjf  i'fc  jfc  *  jjc  )j(  $Jc  j|c  jjc  ?jc  ^  )|(  ^  ^  ^  ^|c  ^  ^  ?!<  *  ?(c  ^  ^  ^ 

Arguments  required  for  creating  the  page  frame  section: 

inadr  -  Starting  and  ending  virtual  addresses  into  which  the 
section  is  to  be  mapped.  If  the  starting  and  ending 
;  addresses  are  the  same,  a  single  page  is  mapped. 
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retadr-  Starting  and  ending  virtual  addresses  into  which  the  section 
was  actually  mapped. 

flags  -  Flag  mask  specifying  the  type  of  section  to  be  mapped  or 
created.  (#SEC$M_WRT!SEC$M_PFNMAP) 

pagcnt-  Number  of  pages  in  the  section.  Cannot  equal  zero  for  physical 
page  frame. 

vbn  -  Specifies  the  page  frame  number  where  the  section  begins  in 
memory,  ((base  addr.  +  unibus  offset)  /  bytes  per  page)  where 

base  addr.  =  unibus  base  addr.  UBO  =  AX  20100000 
unibus  offset  =  force  stick  begins  at  A0  767724 
bytes  per  page  =  512 

^k  ^k  ^k  *  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  Hk  ^k  ^k  ^k  ^k  ^k  ^k  3k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k  ^k 

USE  BYTE  ADDRESSING  MODE: 

UBA.BASE  =@RETRANGE  =  AX  2013EFD4 

READ  PSG1  =  @RETRANGE  =AX2013EFD4 
WRITE  PSG1  =  @RETRANGE+2  =  AX  2013EFD6 
LATCH  PSG1  =  @RETRANGE+4  =  AX  2013EFD8 

READ  PSG2  =  @RETRANGE+6  =  AX  2013EFDA 
WRITE  PSG2  =  @RETRANGE+8  =  AX  2013EFDC 
LATCH  PSG2  =  @RETRANGE+10=  AX  2013EFDD 

The  following  assign  should  also  work  for  VBN  if  a  literal  (#)  is 
mplied: 

VBN1  =  <AX20 100000  +  A0767724>  @-9 

%  )fc  *  *  *  *  $  ifc * *  %  %  *  afe  *  *  *  jje  *  *  *  *  *  *  %  $  *  *  *  *  *  *  *  *  *  *  *  £  *  *  * + 9ft  *  %  *  *  %  *  *  *  £  dfe  *  %  $  %  *  #  *  a|c  *  **  %  *  ***  * 


.TITLE  PSG_MAP 

.PSECT  MAP_SECTION  .NOEXE.WRT.RD.PIC 

MAPRANGE: 

.LONG  1024 

.LONG  1024 

RETRANGE: 

.BLKL  2  ;  reserve  two  longwords 

REMAINDER: 

.LONG  468 

LATCH_REG: 

.LONG  0 

REG_VAL: 

.LONG  0 

.LIBRARY  /SYS$LIBRARY:LIB.MLB/ 

$IO750DEF 
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.PSECT 


CODE  ,EXE,NOWRT 


.ENTRY  PSGMAP  AM<> 

VBN1  =  <IO750$AL_UB0SP+AO767724>@-9 

;  Create  and  map  page  frame  section. 

$CRMPSC_S  - 

INADR  =  MAPRANGE,- 
RETADR  =  RETRANGE,- 

FLAGS  =  #SEC$M_WRT!SEC$M_PFNMAP!SEC$M_EXPREG,- 
PAGCNT  =  #1,- 

VBN  =  #<IO750$AL_UB0SP+AO767724xa>-9 

$EXIT_S 
.END  PSGMAP 

DRAl:[THOMPSON.PSG]PSG_MIXER.MAR;6 

************************************************************************ 

;  AUTHOR:  MICHAEL  W.  THOMPSON 
;  DATE  :  17  JUNE  1987 

************************************* *********************************** 

;  DESCRIPTION:  Programmable  Sound  Generator  (PSG)  mixer  control  I/O 
;  enable,  (register  7) 


;  This  is  a  FORTRAN  callable  macro  subroutine  that: 

;  Calling  format:  CALL  PSG.MIXER  (PSG_NUM,MIXER_MASK) 


Selects  the  PSG1  or  PSG2  :  PSG.NUM  (1  or  2) 
Selects  the  noise  and  tone  channels 


to  be  mixed 

:  MIXER_MASK 

(A01  thru  A0177) 

PSG  UNIBUS  address: 

register 

offset 

address 

READ  PSG1 

AO0 

A0767724 

'X1F7EA3 

WRITE  PSG  1 

A02 

A0767726 

LATCH  PSG1 

A04 

AO767730 

READ  PSG1 

A06 

A0767732 

WRITE  PSG1 

AO10 

A0767734 

LATCH  PSG1 

A012 

A0767736 

♦  sfc  *******************************  ******************************  ********* 

.TITLE  P_S_G_MIXER 

************************************************************************ 

> 

.LIBRARY  /SYS$LIBRARY:LIB.MLB/ 

$IO750DEF 
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.PSECT  MAP_SEC  £10N,N  OEXE,WRT,RD,PIC 
MAPRANGE: 

.LONG  1024 

.LONG  1024 

RETRANGE: 

.BLKL  2  ;  reserve  two  longwords 


.PSECT  DATA, NOEXE,WRT,RD, PIC 
REMAINDER: 

.LONG  468 

PSG_NUM: 

.LONG  1 

MIXER JvIASK: 

.LONG  0 

NAME: 

.ASCID  /PSGSEC/ 


.PSECT  CODE, EXE, NOWRT 

.ENTRY  PSG_MIXER,  AM<R3,R4,R5,IV> 


$MGBLSC_S  - 

INADR  =  MAPRANGE, - 
RETADR  =  RETRANGE, - 
FLAGS  =#SEC$M_WRT!SEC$M_EXPREG,- 
GSDNAM  =  NAME 


BEGIN: 

ADDL3  REM AINDER, RETRANGE, R3  ;  put  PSG 1  base  address  in  R3 

MOVL  @4(AP),PSG_NUM  ;  get  PSG  number 

MOVL  @8(AP),MIXER_MASK ;  mixer  mask 


CMPB  #2,PSG_NUM  ;  sel  PSG1  or  PSG2 

BEQL  PSG2 


PSG1: 

MOVAB  4[R3] ,R4  ;  put  latch  ADDR  in  R4 
MOVAB  2[R3],R5  ;  put  write  ADDR  in  R5 
BRW  LATCH 


PSG2: 

MOVAB  10[R3],R4  ;  put  latch  ADDR  in  R4 

MOVAB  8[R3],R5  ;  put  write  ADDR  in  R5 

LATCH: 

MOVB  #7,(R4)  ;  select  register  7 

MOVB  MIXER_MASK,(R5) 

DONE: 

;  BRW  LATCH 
RET 
.END 


$EXIT_S 

;  .END  PSG_MIXER 
DRAl:[THOMPSON.PSG]PSG_NOISE.MAR;7 
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*  *  *  *  *  %  *  *  *  *  *  *  *  *  *  *  *  %  *  *  *  *  *  *  %  *  %  #  Jft  *  %  %  3ft  >ft  *  Jft  *  *  #  *  *  *  4c  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 

AUTHOR:  MICHAEL  W.  THOMPSON 
DATE  :  17  JUNE  1987 

*  *  *  %  :{<  *  *  *  *  *  *  *  *  *  ;f<  *  *  *  *  *  *  *  *  ^  *  *  aft  *  >{c  ijt  *  *  *  *  *  }ft  *  *  *  #  *  *  *  *  *  *  *  *  *  #  *****  *  *  *  ❖  *  *  *  ******  * 

DESCRIPTION:  Programmable  Sound  Generator  (PSG) 


;  This  is  a  FORTRAN  callable  macro  subroutine  that: 

;  Calling  format:  CALL  PSG_NOISE  (PSG_NUM,NOISE_FREQ) 
;  Selects  the  PSG  1  or  PSG2  :  PSG_NUM  (lor  2) 


Selects  the  NOISE.FREQ 
PSG  UNIBUS  address: 


register 

offset 

READ  PSG 1 

*00 

WRITE  PSG  1 

*02 

LATCH  PSG1 

*04 

READ  PSG1 

*06 

WRITE  PSG  1 

*010 

LATCH  PSG1 

*012 

:  CHAN.NUM  (1,2,3  for  A,B,C) 


address 


*0767724  AX1F7EA3 

*0767726 

*0767730 

*0767732 

*0767734 

*0767736 


•  J>jc  #j(  )|(  ^  ^  ^  «|^  ^  ^  ^  ^  «||j  ^  ^  ^  v|^  *1^  4^1  ^  ^  jJ*  4j|^  v|^  4^  4|^  4^  ^  ^  ^  ^  4|^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  4^  ^  ^ 

1 

.TITLE  P_S_G_NOISE 

.LIBRARY  /SYS$LIBRARY:LIB.MLB/ 

$IO750DEF 

.PSECT  MAP_SECTION,NOEXE,WRT,RD,PIC 
MAPRANGE: 

.LONG  1024 

.LONG  1024 

RETRANGE: 

.BLKL  2  ;  reserve  two  longwords 

.PSECT  DATA,NOEXE,WRT,RD,PIC 
REMAINDER: 

.LONG  468 

PSG_NUM: 

.LONG  1 

NOISE.FREQ: 

.LONG  6 

NAME: 

.ASCID  /PSGSEC/ 

;*****  begin  psg_noise  ***** 

.PSECT  CODE,  EXE,  NOWRT 

.ENTRY  PSG_NOISE,  *M<R3,R4,R5,IV> 
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$MGBLSC_S  - 

INADR  =  MAPRANGE,- 

RETADR  =  RETRANGE,- 

FLAGS  =  #SEC$M_WRT!SEC$M_EXPREG,- 

GSDNAM  =  NAME 


BEGIN: 

ADDL3  REMAINDER, RETRANGE.R3  ;put  PSG1  base  address  in  R3 


MOVL  @4(AP),PSG_NUM  ;  get  PSG  number 

MOVL  @8(AP),NOISE_FREQ ;  get  CHANNEL  number 

CMPB  #2,PSG_NUM  ;  sel  PSG1  or  PSG2 

BEQL  PSG2 

PSG1: 

MOVAB  4[R3] , R4  ;  put  latch  ADDR  in  R4 

MOVAB  2[R3],R5  ;  put  write  ADDR  in  R5 

BRW  LATCH 


PSG2: 

MOVAB  10[R3],R4  ,  put  latch  ADDR  in  R4 

MOVAB  8[R3],R5  ;  put  write  ADDR  in  R5 

LATCH: 

MOVB  #6,(R4)  ;  select  register  6  (noise  gen.  control) 

MOVB  NOISE_FREQ,(R5) 

DONE: 


;  BRW  LATCH 

RET 
.END 

;  $EXIT_S 

.END  PSG.NOISE 

DRA 1  :[THOMPS  ON.PSG]PSG_RE  AD.MAR;22 

************************************************************************ 

;  AUTHOR:  MICHAEL  W.  THOMPSON 
;  DATE  :  17  JUNE  1987 

************************************************************************ 
;  DESCRIPTION:  Programmable  Sound  Generator  (PSG)  read  from  selected 
register. 

;  This  is  a  FORTRAN  callable  macro  subroutine  that: 

;  Calling  format: 

CALL  PSG_READ  (PSG_NUM,REG_NUM,REG_VALUE) 

;  Selects  the  PSG  1  or  PSG2  :  PSG_NUM  (lor  2) 

;  Selects  the  register  number  :REG_NUM  (1  thru  15) 

;  Value  returned  from  register  :  REG_VALUE  (0  THRU  256) 
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PSG  UNIBUS  address: 
register 


READ  PSG1 
WRITE  PSG  1 
LATCH  PSG1 

READ  PSG1 
WRITE  PSG  1 
LATCH  PSG1 


offset 

address 

AO0 

A0767724 

A02 

A07 67726 

A04 

AO767730 

A06 

A0767732 

AO10 

A0767734 

A012 

A0767736 

AX1F7EA3 


•  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  4^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  *|^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  p|^  *|^  ^  ^  *||»  4^  4^>  ^  ^  ^  4^  ^  ^  4^  ^  ^  ^  4^ 

y 

.TITLE  P_S_G_READ 

•  ^  f*^,  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  4^  ^  ^  ^  ^  *|^  ^  ^  ^  ^  4^  ^  ^  ^  ^  4^  jj*  4j|  ^  ^  4^  ^  4^  ^  ^  ^  ^  4^  4^  ^  4^  ^  4^  ^  ^  4^  4^  ^  4^  4^  4^  ^  ^  4^  ^  4^  4^  4^  ^  4^  ^  4^ 

.LIBRARY  /SYS$LIBRARY:LIB.MLB/ 

SIO730DEF 

.PSECT  MAP_SECTION,NOEXE,WRT,RD,PIC 
MAPRANGE: 

.LONG  1024 

.LONG  1024 

RETRANGE: 

.BLKL  2  ;  reserve  two  longwords 

.PSECT  DATA, NOEXE,WRT,RD, PIC 
REMAINDER: 

.LONG  468 

PSG_NUM: 

.LONG  1 

REG_NUM: 

.LONG  0 

REG  VAL,: 

.LONG  0 

NAME: 

.ASCID  /PSGSEC/ 

.PSECT  CODE,EXE,NOWRT 

.ENTRY  PSGJREAD,  AM<R3,R4,R5,IV> 

SMGBLSC_S  - 

INADR  =  MAPRANGE,- 
RETADR  =  RETRAN 
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APPENDIX  F 

FORTRAN  PROGRAM  EXAMPLE 
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£*********** ^ ******** ********************************************* ****** 

c  PROCESS  NAME:  ENG_SOUND.FOR 

c  AUTHOR:  Michael  W.  Thompson 

c  DATE:  29  Feb.  1988 

•1#  v*>  <1>  «L  sL  ii»  <U  sl>  <i>  aJ*  «li  iL  «1>  «1j  «h  «L  Ja  «J>  *V  ^  ^  ^  «J>  «L  *1>  aJ>  «1»  ^  ^  U>  *4*  «JL  Jj  iL  sL  >L  «L  «L  \t»  ^1*  «L  ^  ^  «L  sL*  4*  *1>  ^  4^  4*  4#  4/  <L*-  «£»  4*  4*  4^  4*  4*  4/  4^ 

/Jt  J|v  yjs  /f>  ^  »p  ^  *jv  ^  *V  T  'p  'P  *T'  '?■  »p  T  T  V  T  T*  T  T  ^  q'  ^  »p  *p  T  *p  V  T  T  *v  T  T  q'  *1*  *T*  'p  T  T  'r  T  T  *p  T  /P  T  V  *p  T  T  n>  *T^  'P  *T* 

DESCRIPTION:  This  program  is  an  example  of  using  the  SEG  and  is  provided  as  a  working 
example  of  generating  a  particular  sound.  This  program  produces  a  sound  somewhat  similar  to 
the  engine  sounds  produced  by  helicopters.  The  sound  produced  contains  a  high  pitched  whine, 
mixed  with  pulsating  noise.  Adjustments  of  tone  and  noise  were  done  by  ear.  The  program 
examines  the  torque  value,  conditions  the  value  for  SEG,  then  changes  the  frequency  component 
of  the  noise  simulating  pitch  blade  changes  that  occur  when  changes  are  made  with  the  collective 
control. 

4  d.  4,  Ja  «4»  4»  *4*  4*  *4*  4*  4*  4/  4*  4/  *4?  4^  4^  <4  4/  4*  4>  4/  *4  4*  4*  4»  4f  4/  4f  4  4^  4  4  4  4 4  4  4  4  4  4  4  4  4 4 4 4  4 4  4  4  4*  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4 

q <p  qV  »|*  p’p  ^  «T*  *p  »p  «T*  q'  *p  *p  »p  q*  q>  »p  'P  T  •T'  *T'  *1*  *p  *p  /P  T  'p  q*  »p  q»  q^  q*  q*  qs  »p  *p  *p  q1  T  'p  q>  T  T  »p  *P  *p  *p  q>  »p  *p  *p  T  *p  q*  q>  »p  *p  *p  q'  q*  *T*  T  T 

c  Subroutines  used  have  the  following  calling  conventions: 
c  CALL  PSG„RESET(PSG_NUM) 

c  CALL  PSG.TONE  (PSG_NUM,CHAN_NUM,COARSE_ADJ,FINE_ADJ) 

c  CALL  PSG_NOISE  (PSG_NUM,NOISE_FREQ) 

c  CALL  PSG_MIXER  (PSG_NUM,MIXER_MASK) 

c  CALL  PSG_AMP  (PSG_NUM,CHAN_NUM, AMPLITUDE) 

c  CALL  PSG_ENV_GEN  (PSG_NUM,CHAN_NUM,COARSE_TUNE,FINE_TUNE) 

c  CALL  PS G_EN V_S H APE  (PSG_NUM,SHAPE_VAL) 

c  CALL  PSG_READ  (PSG_NUM,REG_NUM,REG_VAL) 

c  The  arguments  have  the  following  significance: 

c  PSG_NUM  =  PSG  number  (1  or  2). 

c  CHAN_NUM  =  tone  channel  number  (1 ,2, OR  3). 

c  COARSE_ADJ  =  coarse  tone  adjust  value, 

c  FINE_ADJ  =  fine  tone  adjust  value, 

c  NOISE_FREQ  =  noise  frequency. 

c  MIXER_MASK  =  bit  representation  for  tone  or  noise  disable  =  1. 

c  AMPLITUDE  =  1 6  for  env.  gen.  control;  0  - 1 5  for  fixed  amp. 

c  COARSE_TUNE  =  envelope  period  coarse  tune  adjust, 

c  FINE_TUNE  =  envelope  period  fine  tune  adjust, 

c  SHAPE_VAL  =  envelope  waveform  pattern  select, 

c  REG_NUM  =  register  number  (0  - 13) 

c  REG_VAL  =  returned  register  value. 

£  *  *  *  %  *  %  *  *  *  *  *  *  *  Jf:  *  ifc  *  *  *  *  *  *  *  *  *  *  5fc  *  *  >f<  *  *  *  :Jt  *  *  *  %  *  *  #  *  *  *  *  *  *  %  %  *  %  JfC  >{<  &  *  *  *  *  *  &  *  *  *  *  *  *  *  *  *  * 

PROGRAM  ENG_SOUND 
IMPLICIT  INTEGER  (A-Z) 

REAL*4  T1  T2  T3 

REAL*4  PERCENT_TORQUE,OLD_TORQUE 
REAL*4  TORQUE 
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INTEGERS  PSG_NUM,CHAN_NUM 
INTEGER*4  COARSE, FINE, NOISE_FREQ 
INTEGER*4  AMPLITUDE, SHAPE_VAL,COARSE_TUNE 
INTEGER*4  FINE_TUNE,MIXER_MASK 
INTEGER*4  STATUS 
INTEGERS  BINARY_INTERVAL(2) 

LOGICAL  DONE 


CHARACTER  ascii_interval*10/'0  0:0:0.30/ 

C...  BEGIN  Engine  sound 

C...  Initialize  clock 

T1  =  SECNDS(0.0) 

c...  open  input  data  file 

open  (unit  =  l.file  =  'eng_sound.dat', status  =  OLD') 

{*  fAo/I  tkp  /Into 

read  (1,1001)PSG_NUM,CHAN_NUM, 

&  CO  ARSE, FINE, TOISEJFREQ, 

&  AMPLITUDE, SHAPE_VAL,COARSE_TUNE, 

&  FINE_TUNE,MIXER_MASK 

1001  format  (110) 

201  CONTINUE 

c  Use  the  print  statement  for  debugging  and  variable  examination;  otherwise  omit  comment. 

c  print  *,  PSG_NUM,CHAN_NUM, 
c  &  COARSE, FINE, NOISE_FREQ, 

c  &  AMPLITUDE,  SHAPE_VAL,COARSE_TUNE, 

c  &  FINE_TUNE,MIXER_MASK 

C  Call  macro  programs  to  reset  registers  then  get  X  &  Y  values 

200  continue 

CALL  PSG_MIXER  (PSG_NUM,MIXER_MASK) 


c...  Set  up  rotor  noise  sound 
chan_num  =  1 
amplitude  =  16 

CALL  PSG_NOISE  (PSG_NUM,NOISE_FREQ) 

CALL  PSG_ENV_GEN  (PSG_NUM, COARSE  TUNE,FINE_TUNE) 
CALL  PSG_ENV_SHAPE  (PSG_NUM,SHAPE_VAL) 

CALL  PSG_AMP  (PSG_NUM,CHAN_NUM, AMPLITUDE) 

c...  Set  up  tone  sound 
chan_num  =  2 
amplitude  =  4 

CALL  PSGJTONE  (PSG_NUM,CHAN_NUM, COARSE, FINE) 
CALL  PSG_AMP  (PSG_NUM,CHAN_NUM, AMPLITUDE) 
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c...  Set  up  background  noises 
chan_num  =  3 
amplitude  =  7 

CALL  PSG.AMP  (PSG_NUM,CHAN_NUM, AMPLITUDE) 
1  =  0 


c...  Check  the  PSG  v  gisters. 
print  *,'  ' 

do  while  (I  .LT.  14) 

CALL  PSG_READ  (1,I,REG_VAL1) 

CALL  PSG_READ  (2,1, REG  VAL2) 

PRINT  *  ’REG  M,'  =  ',REG  V AL 1  ,REG_V AL2 
1  =  1  +  1 
end  do 

c..  Convert  ascii  time  to  binary  rime 

status  =  sys$bintim  (ascii_interval,  binary_interval) 
if  (.not.  status)  call  lib$stop(%val(status)) 

c..  Schedule  a  wakeup 

status  =  sys$schdwk  („binary_interval,  binary_interval) 
if  (.not.  status)  call  lib$stop(%val(status)) 

o..  What  for  completion 

do  while  (.not.  done) 
c..  Let's  hibernate 

status  =  sys$hiber() 

if  (.not.  status)  call  lib$stop(%val(status)) 

c...  Check  the  value  of  torque 

print  *, 'noise  freq  =  ',noise_freq 
print  *, 'Enter  torque  as  a  decimal  value  less  than  1  = ' 
read  (5,1002)torque 
1002  format  (f4.2) 

v 

c...  Check  to  see  if  the  torque  has  changed, 
if  (old_torque  .NE.  torque)  then 

percent_torque  =  torque  *  100. 
if  (torque  .LT.  .33  )  then 
noise_freq  =  percent_torque  /  8. 

CALL  PSG.NOISE  (PSG_NUM,NOISE_FREQ) 

else  if  (torque  .LT.  .66)  then 

noise_freq  =  percent_torque  /  8. 

CALL  PSG_NOISE  (PSG_NUM,NOISE_FREQ) 

else  !  torque  .LT.  .99 

noise_freq  =  percent_torque  /  8. 

CALL  PSG_NOISE  (PSG_NUM,NOISE_FREQ) 
end  if 
end  if 
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old_torque  =  torque 
end  do 


CALL  EXIT 

STOP 

END 


